home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / exploer / frmmain.frm < prev    next >
Text File  |  1999-09-22  |  49KB  |  1,539 lines
  1. VERSION 5.00
  2. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
  3. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  4. Begin VB.Form frmMain 
  5.    BorderStyle     =   1  'Fixed Single
  6.    Caption         =   "Explorer Sample"
  7.    ClientHeight    =   8070
  8.    ClientLeft      =   150
  9.    ClientTop       =   720
  10.    ClientWidth     =   10440
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   8070
  13.    ScaleWidth      =   10440
  14.    StartUpPosition =   3  'Windows Default
  15.    Begin VB.Timer Timer1 
  16.       Left            =   9840
  17.       Top             =   2280
  18.    End
  19.    Begin VB.FileListBox File1 
  20.       Height          =   285
  21.       Hidden          =   -1  'True
  22.       Left            =   9240
  23.       System          =   -1  'True
  24.       TabIndex        =   14
  25.       Top             =   1440
  26.       Visible         =   0   'False
  27.       Width           =   1215
  28.    End
  29.    Begin VB.DirListBox Dir1 
  30.       Height          =   315
  31.       Left            =   9240
  32.       TabIndex        =   13
  33.       Top             =   1080
  34.       Visible         =   0   'False
  35.       Width           =   1215
  36.    End
  37.    Begin VB.DriveListBox Drive1 
  38.       Height          =   315
  39.       Left            =   9240
  40.       TabIndex        =   12
  41.       Top             =   720
  42.       Visible         =   0   'False
  43.       Width           =   1215
  44.    End
  45.    Begin VB.PictureBox Picture3 
  46.       AutoSize        =   -1  'True
  47.       Height          =   615
  48.       Left            =   5520
  49.       ScaleHeight     =   555
  50.       ScaleWidth      =   555
  51.       TabIndex        =   11
  52.       Top             =   6120
  53.       Visible         =   0   'False
  54.       Width           =   615
  55.    End
  56.    Begin VB.PictureBox Picture2 
  57.       AutoSize        =   -1  'True
  58.       Height          =   615
  59.       Left            =   4800
  60.       ScaleHeight     =   555
  61.       ScaleWidth      =   555
  62.       TabIndex        =   10
  63.       Top             =   6120
  64.       Visible         =   0   'False
  65.       Width           =   615
  66.    End
  67.    Begin VB.PictureBox Picture1 
  68.       AutoSize        =   -1  'True
  69.       Height          =   615
  70.       Left            =   4080
  71.       ScaleHeight     =   555
  72.       ScaleWidth      =   555
  73.       TabIndex        =   9
  74.       Top             =   6120
  75.       Visible         =   0   'False
  76.       Width           =   615
  77.    End
  78.    Begin VB.TextBox txtValue 
  79.       Height          =   495
  80.       Left            =   4080
  81.       TabIndex        =   8
  82.       Top             =   5520
  83.       Visible         =   0   'False
  84.       Width           =   4695
  85.    End
  86.    Begin MSComctlLib.ImageList ImageList3 
  87.       Left            =   9240
  88.       Top             =   3000
  89.       _ExtentX        =   1005
  90.       _ExtentY        =   1005
  91.       BackColor       =   -2147483643
  92.       ImageWidth      =   16
  93.       ImageHeight     =   16
  94.       MaskColor       =   12632256
  95.       _Version        =   393216
  96.    End
  97.    Begin MSComctlLib.ImageList ImageList2 
  98.       Left            =   9240
  99.       Top             =   2400
  100.       _ExtentX        =   1005
  101.       _ExtentY        =   1005
  102.       BackColor       =   -2147483643
  103.       MaskColor       =   12632256
  104.       _Version        =   393216
  105.    End
  106.    Begin MSComctlLib.ImageList ImageList1 
  107.       Left            =   9240
  108.       Top             =   1800
  109.       _ExtentX        =   1005
  110.       _ExtentY        =   1005
  111.       BackColor       =   -2147483643
  112.       MaskColor       =   12632256
  113.       _Version        =   393216
  114.    End
  115.    Begin VB.PictureBox picSplitter 
  116.       BackColor       =   &H00808080&
  117.       BorderStyle     =   0  'None
  118.       FillColor       =   &H00808080&
  119.       Height          =   4800
  120.       Left            =   9120
  121.       ScaleHeight     =   2090.126
  122.       ScaleMode       =   0  'User
  123.       ScaleWidth      =   780
  124.       TabIndex        =   7
  125.       Top             =   720
  126.       Visible         =   0   'False
  127.       Width           =   72
  128.    End
  129.    Begin MSComctlLib.TreeView tvTreeView 
  130.       Height          =   4800
  131.       Left            =   0
  132.       TabIndex        =   6
  133.       Top             =   720
  134.       Width           =   3330
  135.       _ExtentX        =   5874
  136.       _ExtentY        =   8467
  137.       _Version        =   393217
  138.       Style           =   7
  139.       SingleSel       =   -1  'True
  140.       ImageList       =   "ImageList3"
  141.       BorderStyle     =   1
  142.       Appearance      =   1
  143.    End
  144.    Begin MSComctlLib.ListView lvListView 
  145.       Height          =   4800
  146.       Left            =   3360
  147.       TabIndex        =   5
  148.       Top             =   720
  149.       Width           =   5730
  150.       _ExtentX        =   10107
  151.       _ExtentY        =   8467
  152.       Arrange         =   2
  153.       LabelEdit       =   1
  154.       Sorted          =   -1  'True
  155.       MultiSelect     =   -1  'True
  156.       LabelWrap       =   -1  'True
  157.       HideSelection   =   0   'False
  158.       AllowReorder    =   -1  'True
  159.       FullRowSelect   =   -1  'True
  160.       HotTracking     =   -1  'True
  161.       _Version        =   393217
  162.       Icons           =   "ImageList1"
  163.       SmallIcons      =   "ImageList2"
  164.       ForeColor       =   -2147483640
  165.       BackColor       =   -2147483643
  166.       BorderStyle     =   1
  167.       Appearance      =   1
  168.       NumItems        =   4
  169.       BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  170.          Text            =   "Name"
  171.          Object.Width           =   2540
  172.       EndProperty
  173.       BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  174.          SubItemIndex    =   1
  175.          Text            =   "in"
  176.          Object.Width           =   2540
  177.       EndProperty
  178.       BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  179.          SubItemIndex    =   2
  180.          Text            =   "Size"
  181.          Object.Width           =   2540
  182.       EndProperty
  183.       BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  184.          SubItemIndex    =   3
  185.          Text            =   "Type"
  186.          Object.Width           =   2540
  187.       EndProperty
  188.    End
  189.    Begin VB.PictureBox picTitles 
  190.       Align           =   1  'Align Top
  191.       Appearance      =   0  'Flat
  192.       BorderStyle     =   0  'None
  193.       ForeColor       =   &H80000008&
  194.       Height          =   300
  195.       Left            =   0
  196.       ScaleHeight     =   300
  197.       ScaleWidth      =   10440
  198.       TabIndex        =   2
  199.       TabStop         =   0   'False
  200.       Top             =   420
  201.       Width           =   10440
  202.       Begin VB.Label lblTitle 
  203.          BorderStyle     =   1  'Fixed Single
  204.          Caption         =   " ListView:"
  205.          Height          =   270
  206.          Index           =   1
  207.          Left            =   2078
  208.          TabIndex        =   4
  209.          Tag             =   " ListView:"
  210.          Top             =   12
  211.          Width           =   3216
  212.       End
  213.       Begin VB.Label lblTitle 
  214.          BorderStyle     =   1  'Fixed Single
  215.          Caption         =   " TreeView:"
  216.          Height          =   270
  217.          Index           =   0
  218.          Left            =   0
  219.          TabIndex        =   3
  220.          Tag             =   " TreeView:"
  221.          Top             =   12
  222.          Width           =   2016
  223.       End
  224.    End
  225.    Begin MSComctlLib.Toolbar tbToolBar 
  226.       Align           =   1  'Align Top
  227.       Height          =   420
  228.       Left            =   0
  229.       TabIndex        =   1
  230.       Top             =   0
  231.       Width           =   10440
  232.       _ExtentX        =   18415
  233.       _ExtentY        =   741
  234.       ButtonWidth     =   609
  235.       ButtonHeight    =   582
  236.       Appearance      =   1
  237.       ImageList       =   "imlToolbarIcons"
  238.       _Version        =   393216
  239.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  240.          NumButtons      =   16
  241.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  242.             Key             =   "Cut"
  243.             Object.ToolTipText     =   "Cut"
  244.             ImageKey        =   "Cut"
  245.          EndProperty
  246.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F02